'Imports System.Configuration
'Imports System.Data.OleDb
'Imports System.Data.SqlClient
'Imports System.Data
'Imports System.IO

'Public Class INEReportService

'    Dim _NombreReporte As String
'    Dim _NombreSistema As String
'    Dim _NombreUsuario As String
'    Dim _NombreEmpresa As String
'    Dim _NombreSitio As String

'    Dim _StrSend As String = ""   'Concatenacion de parametros para el reporte

'    Public Sub AddParametrosReporte(ByVal nombre_Parametro As String, ByVal Valor_Parametro As Object)
'        _StrSend = _StrSend & "&" & nombre_Parametro & "=" & Valor_Parametro
'    End Sub
'    Public Property NombreUsuario() As String
'        Get
'            Return _NombreUsuario
'        End Get
'        Set(ByVal value As String)
'            _NombreUsuario = value
'        End Set
'    End Property
'    Public Property NombreReporte() As String
'        Get
'            Return _NombreReporte
'        End Get
'        Set(ByVal value As String)
'            _NombreReporte = value
'        End Set
'    End Property
'    Public Property NombreSistema() As String
'        Get
'            Return _NombreSistema
'        End Get
'        Set(ByVal value As String)
'            _NombreSistema = value
'        End Set
'    End Property
'    Public Property NombreSitio() As String
'        Get
'            Return _NombreSitio
'        End Get
'        Set(ByVal value As String)
'            _NombreSitio = value
'        End Set
'    End Property
'    Public Property NombreEmpresa() As String
'        Get
'            Return _NombreEmpresa
'        End Get
'        Set(ByVal value As String)
'            _NombreEmpresa = value
'        End Set
'    End Property
'    Public Function GetToken(Optional ByVal ProviderIn As Provider = Provider.SQLCLIENT) As Integer

'        _StrSend = _NombreReporte & "" & _StrSend

'        _StrSend = _StrSend & "&rptPrm_usuario=" & _NombreUsuario
'        _StrSend = _StrSend & "&rptPrm_empresa=" & _NombreEmpresa

'        Dim MyAppSettingsReader As New AppSettingsReader
'        Dim exec As New SQLPersistence(True, ConfigurationManager.ConnectionStrings("ConnectionStringToken").ConnectionString.ToString.Trim())
'        Dim rp As New DotNetResponse.SQLPersistence
'        rp.StoredProcedure = "SpToken_CreaToken"
'        rp.AddParametro(_NombreSistema)
'        rp.AddParametro(_NombreUsuario)
'        rp.AddParametro(_NombreEmpresa)
'        rp.AddParametro(_StrSend)
'        exec.ExecuteDataTable(rp)
'        If rp.TieneDatos Then
'            GetToken = Val(rp.DtTable.Rows(0).Item(0))
'        End If
'        exec.Commit()
'        rp.Dispose()
'        exec.Dispose()
'    End Function

'    Public Enum Provider
'        SQLOLEDB = 0
'        SQLCLIENT = 1
'        ORACLIENT = 2
'    End Enum


'End Class
